home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / pascal / tch_tpas.zip / PROG13.PAS < prev    next >
Pascal/Delphi Source File  |  1986-04-05  |  512b  |  29 lines
  1. PROGRAM PROG13;
  2. {$U+    Copyright (C), 1985 by Lyle Faurot.  All rights reserved.
  3.  
  4.     New Topics: Strings
  5.                 String Operations
  6.                 String Functions
  7.  
  8. }
  9.  
  10. CONST
  11.    S_Test = 'Test String';
  12.  
  13. VAR
  14.    S3  :  String[3];
  15.    S5  :  String[5];
  16.    S8  :  String[8];
  17.    S14 :  String[14];
  18.  
  19. BEGIN
  20.   S3 := S_Test;
  21.   WriteLn(S3);
  22.  
  23.   S8 := S_Test;
  24.   WriteLn(S8);
  25.  
  26.   S14 := S_Test;
  27.   WriteLn(S14);
  28. END.
  29.